home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / write.lha / WRITE / REXX / REXX.lha / PrivatePortDemo.wrx < prev    next >
Encoding:
Text File  |  1994-11-15  |  1.5 KB  |  45 lines
  1. /*
  2.  *
  3.  * Script für WRITE 3.000 © 1989 - 1993 by Tim Teulings
  4.  * Dieses REXX-Script demonstriert den Umgang mit den Routinen
  5.  * OPENPORT,CLOSEPORT,WAITPORT
  6.  *
  7.  */
  8.  
  9. OPTIONS RESULTS
  10.  
  11. IF ~show('P',"WRITE")
  12. THEN DO
  13.  say 'Dieses Script läuft nur, wenn WRITE bereits gestartet wurde !'
  14.  exit 10
  15. END
  16.  
  17. ADDRESS "WRITE"
  18.  
  19.   'VERSIONCHECK 31090 "PivatePortDemo.wrx"'
  20.   IF RC~=0 THEN DO
  21.     exit 10
  22.   END
  23.  
  24.   'NEWED ""'
  25.   ID = RESULT         /* 'NEWED' gibt einen ID zurück,                   */
  26.                       /* der von den weiteren Befehlen benötigt wird     */
  27.                       /* Der ID des aktuellen Textes steht auch in der   */
  28.                       /* Variabeln '_CurrentID',erhältlich durch :       */
  29.                       /*   "GETVAR (_CurrentID)"; ID =  RESULT           */
  30.  
  31.   OPENPORT ID         /* PrivatePort des geffneten Fensters öffnen       */
  32.   Port = RESULT
  33.   IF Port="" THEN DO  /* 'OPENPORT' gibt "" zurück,wenn Port nicht       */
  34.                       /* geöffnet werden konnte                          */
  35.     "MESSAGEOK (REXX-Script\n'PrivatePortDemo'\nkonnte PrivatePort\nnicht öffnen !)"
  36.     EXIT
  37.   END
  38.  
  39. INTERPRET ADDRESS Port  /* PrivatePort addressieren.Alle Komandos beziehen */
  40.                         /* sich nun auf das Fenster mit diesem Port        */
  41.  
  42.   WINDOW 50 50 50 50  /* Öffnen eines neuen Fensters                       */
  43.   "MESSAGEOK (Editieren sie den Text.\nDurch Schließen des Fensters\nbeenden sie das REXX-Skript.)"
  44.   WAITPORT ID           /* Wartet bis das Fenster geschlossen wurde        */
  45.